home *** CD-ROM | disk | FTP | other *** search
/ Megahits 5 / Megahits 5 (1994)(GTI - Rhein-Main-Soft)(DE)(Disc 2 of 2)[!].iso / archive / edit / cpaint.lha / Others_I_Wrote.lha / speed.e < prev    next >
Text File  |  1993-12-10  |  141b  |  11 lines
  1. /* speed test */
  2.  
  3. DEF x
  4. PROC main()
  5. WriteF('Now doing 8 Million Instructions\n',2)
  6. FOR x:=1 TO 2000000
  7. ENDFOR
  8. WriteF('All done!\n')
  9. ENDPROC
  10.  
  11.